home *** CD-ROM | disk | FTP | other *** search
/ CBM Funet Archive / cbm-funet-archive-2003.iso / cbm / c64 / programming / Final Cartridge III software.sfx / writeyourown.asm (.txt) < prev   
Encoding:
Commodore BASIC  |  1994-08-11  |  1.6 KB  |  78 lines
  1. 1000 ; writeyourown  date: 23-03-88
  2. 1010 ;---------------------------------
  3. 1020 ;
  4. 1030 ; the final cartridge iii desktop
  5. 1040 ;
  6. 1050 ;     riska h&p, marc derksen
  7. 1060 ;
  8. 1070 ;     p r o j e c t   d e m o
  9. 1080 ;
  10. 1090 ;---------------------------------
  11. 1100 ;
  12. 1110 ; procedure during development:
  13. 1120 ;-use this startup routine
  14. 1130 ;-free workspace is: $65c0-$6e80
  15. 1140 ; start with sys$65c0
  16. 1150 ;-leave desktp with run/stop+reset
  17. 1160 ;-restart assembler with $8009
  18. 1170 ; or:
  19. 1180 ;-add jsr $8020 as the first line
  20. 1190 ;-leave desktp with run/stop+reset
  21. 1200 ;-restart assembler with $8023
  22. 1210 ;-enter (NULL) to restore source code
  23. 1220 ;
  24. 1230 gosub=$de05
  25. 1240 close=$01
  26. 1250 toback=$02
  27. 1260 dragbr=$08
  28. 1270 ;
  29. 1280 *=$65c0
  30. 1290 ; jsr $8020  ; optional see above
  31. 1300 sei
  32. 1310 jsr start  ; open desk-top
  33. 1320 jsr init  ; add you own stuff
  34. 1330 jmp $8006  ; to input loop
  35. 1340 ;
  36. 1350 mn3=$c074
  37. 1360 mn3it1=$c0c2
  38. 1370 ;------ main ------------------
  39. 1380 init ldx #<item2  ; set new menu
  40. 1390 ldy #>item2
  41. 1400 stx mn3it1
  42. 1410 sty mn3it1+1
  43. 1420 lda #16+1  ; 2 menus
  44. 1430 sta mn3+7
  45. 1440 rts
  46. 1450 ;
  47. 1460 item2 wor 0  ; nextitem
  48. 1470 wor it2txt  ; item name
  49. 1480 wor openwd  ; item exec
  50. 1490 byt 1,0  ; enable item
  51. 1500 ;
  52. 1510 it2txt byt "[196][197][205][207][160][215][196]",0
  53. 1520 ;
  54. 1530 ;------ window ---------------
  55. 1540 openwd ldx #<window  ; call openwd
  56. 1550 ldy #>window
  57. 1560 lda #openwindow
  58. 1570 jmp gosub
  59. 1580 ;
  60. 1590 window wor 0  ; no gadgets
  61. 1600 byt 40,40  ; wdx,wdy
  62. 1610 byt 110,50  ; width,height
  63. 1620 wor wdtitle  ; window name
  64. 1630 byt close+toback+dragbr  ; wdflags
  65. 1640 byt 66  ; wdtitle size
  66. 1650 wor 0,0
  67. 1660 wdtitle byt "[205]y [215]indow",0
  68. 1670 ;
  69. 1680 ;------ open desk-top --------
  70. 1690 start lda #$42  ; fciii on
  71. 1700 sta $dfff
  72. 1710 jsr opendt  ; open screen
  73. 1720 jmp ($8004)
  74. 1730 opendt jmp ($8001)
  75. 1740 ;
  76. 1750 ;------ includes -------------
  77. 1760 openwindow=48
  78.